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FACILITY: System Subroutine 
ABSTRACT: 


This routine takes an ascii privilege name ard sets or 
clears the specified bit in the supplied privilege vector. 


ENVIRONMENT: mode of caller 
AUTHOR: Henry M. Levy , CREATION DATE: 10-January-1978 


SOOCOGCCOCCOOOOOCOOOOOOOCOOOOoOoOoOO 
OOCCCOOCCOCOOSCOOSOOSCOCOOOOOOOOCOOCOOOCOO 


NOUS AN OS OOO NAME WIN © OD NAU EWN OOO NAME WIN O OONOU EWN OOWONOU SE wr 


SOoOSOOSCSOOOOOOOOOOSOOOSOSOOSOSOSOSOSOSOSOOOOOOSOOOOOOOOOOOOOOOOOOOOO 


SSooooooooooCcooooooooooooooosoood 


PTT BP BEBE EWN inononononononononong 2 2 


: MODIFIED BY: 
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3 Add SECURITY privilege 
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3 : Add TMPJNL and PRMJNL privileges. 
0 : v03-002 LMP0083 L. Mark Pilant, 28-Feb-1983 9:18 
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; vO0O1 mLJ0085 Martin L. Jack 31-Mar-1982 

: Change PSECT to _LIBSCODE. 

: vOOS —_ TMHOOOS Tim Kalvorsen 27-0ct-1981 

: Fix checking for ALL keyword to happen before table lookup. 

: v004 — TMHO004 Tim Halvorsen 26-0c t-1981 
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: INCLUDE FILES: 
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Macro to define entry to privilege name table. 
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: privilege name invalid 

; privilege name not unique 
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GROUP, 3 : 
NOACNT,3,<ACNT> : 
PRMCEB,4 : 


PRMMBX, 


PSWAPM, ; 
SETPRI,5,<ALTPRI 
SETPRV 
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TMPMBX 


5 
UPGRADE , 3 
DOWNGRADE, 3 


READALL, 3 
TMPJNL 4 


PRMJNL,4 
SECURITY, 3 
0,0 


; MAY ESS OBJ 

; BYPASSES UIC CHECKING 

; SYSLCK er v ge 

; MAY ASSIGN CHANNEL TO NON-SHARED DEVICE 
; May upgrade classification 

; May downgrade classification 

; Group access via system protection field 
; Read access to everything 

; May create temporary journal 

; May create permanent 

; May perform security 

; terminate table 
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MAY SUPPRESS ACCOUNTING MESSAGE 
MAY CREATE PERMANENT COMMON EVENT CLUSTERS 
MAY CREATE PERMANENT MAILBOX 
MAY CHANGE PROCESS SWAP MODE 
Y SET ANY PRIORITY VALUE 
AY SET ANY PRIVILEGE BITS 
MAY CREATE TEMPORARY MAILBO% 
Y AFFECT OTHER PROCESSES IN THE WORLD 
OPERATOR PRIVILEGE 
MAY EXCEED QUOTAS 
MAY CREATE NETWORK DEVICE 
MAY OVERRIDE VOLUME PROTECTION 
MAY DO PHYSICAL 
MAY MAKE BUG CHECK ERROR LOG ENTRIES 
MAY CREATE PERMANENT GLOBAL SECTIONS 
MAY CREATE SYSTEM WIDE GLOBAL SECTIONS 
MAY EXECUTE MOUNT VOLUME Q10 
MAY MAP TO SPECIFIC PHYSICA ES 
MAY CREATE/ OBJECTS IN SHARED MEMORY 
ACC ECTS VIA SYSTEM PROTECTION 
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none 
ROUTINE VALUE: 


RO = 
LOW BIT SET => success 

LOW BIT CLEAR => failure with: 

PRV$_NOTUNQ => privilege name is ambiguous 
PRVS_INVNAM => invalid privilege name 


SIDE EFFECTS: 


$ 
§ : -SBTTL PRVSSETPRIV = Set or Clear privilege bit 
: FUNCTIONAL DESCRIPTION: 
71; Set or clear privilege bit in specified privilege vector 
if 3 depending on Osc td pi none. . | 
ri : CALLING SEQUENCE: 
i : CALLS/CALLG | 
A. > INPUTS: 
80 : NAMDSC(AP) = address of a string descriptor for the ascii 
82 ; privilege name 
r4 3 PRIVEC = address of the privilege vector in which to clear 
; Q or set bits 
f > INPLICIT INPUTS: 
e : none 
89 : OUTPUTS: 
4 : none 
: > IMPLICIT OUTPUTS: 


“M<R2,R3,R4,R5,R6,R7,R8,R9,R10> 
NAMDSC (AP) ,R4 ; get name string descriptor 
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0 

(R4) ,R10 3; get string length 
MO 4(R4) ,R4 ; get string address 
MOVAL PRVSAB_NAMESR5 ; get address of name table 
MOVL #1,R6 ; assume ‘NO’ not specified 
CMPW * R10 3; check at least 2 ong 
BGTR 1 3; not enough to check for ‘NO’ 
CMP #*A/NO/, (R4) ; see if bit to be tured off 
BNEQ 108 ; branch if not ; 
CLRL a ; else remember to turn off bit 
ADDL #2,R4 3 point string over ‘NO’ 
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-SBTTL PRVSPRIVBIT = Return privilege bit number 


FUNCTIONAL DESCRIPTION: 
Lookup the specified privilege keyword in the list of 
legal keywords and return the privilege bit number 
associated with the keyword. 
CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
4(AP) = address of a string descriptor for the ascii 
privilege name 
8(AP) = address of a word to receive the privilege bit 
number associated with the keyword. 
ROUTINE VALUE: 
O= 1 -> bit number returned in RETNUM 


PRV$_NOTUNQ => privilege name is ambiguous 
PRVS_INVNAM => invalid privilege name 


“M<R2,R3,R4,R5,R6,R7,R8,R9,R10> 


MOVL 4 (AP) ,R4 ; get name string descriptor 
MOVZWL (R4),R10 ; get string length 
MOVL 4(R4S,R4 : get string address 
MOVAL PRVSAB_NAMES,R5 3; get address of name table 
CMPW #2,R10 3; check at least 2 Lon 
BGTR 3 not enough to check for 'NO' 
CMPW #*A/NO/, (R4) ; see if bit to be turned off 
BNEQ 10$ 3; branch if not 
ADDL #2,R4 3 point string over ‘NO’ 

198 SUBL #2,R10 ; decrease length by 2 
MOVZBL (R5)+,R7 ; get min string length 
BEQL 60$ 3; continue if more in table 
MOVZBL ES 3; get privilege bit number 
MOVZBL (R5)+,R9 ; get gate ing Length 
CMPC R10, (R4), (RS) ; see if string match 
BEQL 30$ ; branch if strings match 
ADDL R9,R5 ; skip of string in table 

30s BRB 10$ 3; continue search 
MOVL #PRV$_NOTUNQ,RO ; assume not unique 
CMPW R10,R7 ; see if enough was specified 
BLSS 40$ ; return if not enoug 
MOVL RB, a8 (AP) 3 return bit number 
MOVL #1,R0 ; note success 

40$: RET 3; return to caller 
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Pe 60$:  MOVL = #PRVS_INVNAM,RO 
12 RET 
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; table done, name not found 
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-SBTTL PRVSKEYWORD - Translate privilege bit # to keyword 


FUNCTIONAL DESCRIPTION: 


Return the keyword string associated with the given privilege 
bit number. 


CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
. privilege mask bit number (0-63) 


address of a buffer descriptor to receive the keyword 
) = address of a word to receive the keyword Length 


4 (AP) 

8( AP) 

12 (AP 
OUTPUTS: 

RO = status (error if illegal privilege bit number) 


The keyword is stored into the buffer, and the length is 
returned in the user-specified word. 


PRVSKEYWORD:: 
«WORD “M<R2,R3,R4,R5> 
MOVAL PRVSAB_NAMES,R5 ; get address of name table 
10$: TSTB (R5)+ ; end of table? — 
BEQL 60$ ; if so, illegal oit number 
CMPB 4(AP), (R5)+ ; does privy tec bit number match? 
EQL 208 ; branch if so 
MOVZBL (R5)+,R0 3 get length of counted string 
RO,R5 ; skip to next entry in table 
BRB 10$ ; loop until end of table 
208: MOVZBL (R5)+,R0 3 get cstring Length 
MOVL 8(AP) ,R1 ; get address of buffer descriptor 
CMPW a (Ri) : 1s buffer too small? 
BLEQ «= 25$ ; branch if ok 
MOVZWL (R1),RO ; truncate ed age to size of buffer 
25$: MOVW RO.afecap) ; return Length of keyword 
MOVC RO, (R5),@4(R1) 3 copy keyword into buffer 
MOVL #1,R0 ; exit with success 
RET 
60$: CLRW @12(AP) 3; return nothing in buffer 
oye #PRVS_INVNAM,RO ; table done, name not found 
- END 
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Symbol table ~SEP-1984 43:41 VMSLIB.SRCISETPRIV.MAR; 1 (5) 
ALLPRIV 0 OR 01 
sp ¢! = 4 
AB_NAMES 00 0 3 RG 1 
PRVSKETWORD 8 RG 1 
PRVSPRIVBIT 4 RG 1 
PRVSSETPRIV 0 8 RG 1 
PRVSV_ALLSPOOL = 00 004 
RV$V_BUGCHK = 00000017 
PRVSV-BYPASS = 0000001D 
PRVSV_CMEXE = 00000001 
PRVSV_CMKRNL == aise ! 
PRVSV_DETACH = 0 
PRVSV_DIAGNOSE = Bop bone? 
PRVSV_DOWNGRADE= 00000021 
PRVSV_EXQUOTA = 00000013 
PRVS$V_GROUP = sate tet 
PRVSV_GRPNAM = 0000000 
PRVSV_GRPPRV = 00000022 
PRV$V_LOG_10 = 00000007 
PRV$V_MOUNT = 00000011 
PRVSV_NETMBX = 00000014 
PRVSV_NOACNT = 00000009 
PRVSV_OPER = 00000012 
PRVSV_PFNMAP = 0000001A 
PRVSV_PHY_10 = 00000016 
PRVSV_PRMTEB = OOOO0DCOA 
PRVSV_PRMGBL = 00000018 
PRVSV_PRMJNL = 00000025 
PRVSV_PRMMBX = 000000 
PRVSV_PSWAPM = Q00000CC 
PRVSV_READALL = Bopp p5e 
PRVSV_SECURITY = 00026 
PRVSV_SETPRI = 0000000D 
PRVSV_SETPRV = QOOQQO0E 
PRVS$V_SHARE = 0000001F 
PRVSV_SHMEM = 00000018 
PRVSV_SYSGBL = 00000019 
PRVSV_SYSLCK = 0000001 
YS = 0000000 
PRVSV_SYSPRV = 0000001C 
PRVSV_TMPJNL = 00000024 
PRYSVUPGRADE = 00000020 
= 
PRVSV-VOCPRO” = Q00000%s 
PRV$V_WORLD = 00000010 
PRV$_TNVNAM = 00000002 G 
PRV$_NOTUNQ = 00000004 G 
demon seo w anes anes + 
! Psect synopsis ! 
peewee ene awr eco as 
PSECT name Allocation PSECT No. Attributes 
‘ re 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
*L1B8CoDE 00000263 ( 611.) Se Mee PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


The working set Limit was 900 popes 
13208 bytes (26 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 85 non-local and 15 local symbols. 
366 source Lines were read in Pass 1, produc ing 12 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 


ee + 
! Macro Library statistics ; 


Macro Library name Macros defined 
“S255$DUAZB:(SYSLIBJSTARLET.MLB:2 0 (‘i‘(tt*S”S”S~S = 
135 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/DISA=TRACE/LIS=L1IS$:SETPRIV/OBJ=OBJ$:SETPRIV MSRC$:SETPRIV/UPDATE=(ENHS$:SETPRIV) 
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Psect synopsis -SEP=1984 04:45:41 (CVMSLIB.SRCISETPRIV.MAR;1 
SABSS 00000000 <¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
tewmoereane Sem meeeesear ces + 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization ¢ 00 -06 0:00:00.47 
Command processing 105 Bp: 700.54 8: 8: 4 
Pass 160 :00:02.31 00:05. 
pysbo} table sort 0 :00: 9 8: :00. 
Pass 91 :00:00. :00:01.94 
Symbol table output 7 0:00:00.0 0:00: 8-92 
Psect synopsis output 5 B8 88: 80° 5 $8 :00.25 
Cross-reference output 0 00:00:00.00 0:00:00.00 
Assembler run tctals 400 00:00:04.05 0:00:10.66 


~~ 
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